home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 91
/
64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64
/
vm etiketten
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
68 lines
100 poke53281,6:poke53280,6:poke53272,21:poke657,128:poke650,128
110 print"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
120 [153]"peek peek
130 print"[194][157][194][145] mit diesem programm koennen sie [194][157][194]
140 [153]"peekcmdpeekon etiketten fuer ihre videokassetten peekcmdpeek
150 print"[194][157][194][145] ausdrucken, die sie in zwei formen [194][157][194]
160 [153]"peekcmdpeekon erstellen koennen. sys> taste < peekcmdpeek
170 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
180 [151]198,0:[146]198,1:[151]198,0
190 [153]"loadsoll das etikett im laengst oder breit-
200 print"format erstellt werden ( videohuelle /
210 [153]"videokassette ) ?
220 print"[158] 1. laengst
230 [153]" 2. breit
240 u=0:print"bitte waehlen !
250 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]250
260 [139]a$[178]"2"[167]u[178]1:[137]600
270 [153]"load(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$
280 print"[194] [194]
290 [153]"peek peek
300 print"[194] [194]
310 [153]"peek peek
320 print"[194] [194]
330 [153]"mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)
340 print"[158]bitte geben sie nun ein, was auf dem
350 [153]"etikett stehen soll.";
360 [129]i[178]1[164]5:[153]:mx[178]35:[141]370:a$(i)[178]b$:[130]:[137]500
370 b$[178]""
380 [139]u[178]0[167][153]".....................................":[153]"on";
385 [139]u[178]1[167][153]"......................":[153]"on";
390 [161]a$:[139]a$[178]""[176]a$[178]"on"[176]a$[178]"cmd"[167]390
400 [139][198](a$)[177]192[175][198](a$)[179]234[167]460
410 [139]a$[178][199](13)[167]490
420 [139]([198](a$)[179]32[176][198](a$)[177]127)[175]a$[179][177][199](20)[167]390
430 [139]a$[178]","[176]a$[178]":"[176]a$[178][199](34)[167]390
440 [139]a$[178][199](20)[175][195](b$)[178]0[167]390
450 [139]a$[178][199](20)[167]b$[178][200](b$,[195](b$)[171]1):[153]".cmdcmd-cmd";:[137]480
460 [139][195](b$)[177]mx[167]390
470 [153]a$;"-cmd";:b$[178]b$[170]a$
480 [137]390
490 [129]r[178][195](b$)[164]mx[170]1[171]v1:[153]" ";:[130]:[142]
500 [153]:[153]"soll das etikett ausgedruckt werden ?"
510 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]510
520 [139]a$[178]"n"[167][138]
530 [159]1,4
540 [129]r[178]1[164]5:[152]1,a$(r):[130]
550 [160]1
560 [153]"noch einmal ausdrucken ?"
570 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]570
575 [139]a$[178]"j"[167]530
580 [138]
600 [153]"load(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$
610 forr=1to10:print"[194] [194]":next
620 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
630 [153]"sysbitte geben sie nun ein, was
640 print"etikett stehen soll.";
645 fori=1to10:print:mx=21:gosub370:a$(i)=b$:next:goto700
700 print:print"soll das etikett ausgedruckt werden ?"
710 geta$:ifa$<>"j"anda$<>"n"then710
720 ifa$="n"thenrun
730 open1,4
740 forr=1to10:print#1,a$(r):next
750 close1
760 print"noch einmal ausdrucken ?"
770 geta$:ifa$<>"j"anda$<>"n"then770
775 ifa$="j"then730
780 run